home *** CD-ROM | disk | FTP | other *** search
Wrap
;$VER: als.library installation script 1.0 (if (< @installer-version (+ 3 (* 43 65536))) (message "You appear to be using an old version of Installer\n\n" "This installation script has only been tested with version " "43.3, so if you experience problems download the latest version " "from Aminet") ) (welcome "********************************\n" "* ADVANCED LAWNMOWER SIMULATOR *\n" "********************************\n" "Original by Duncan MacDonald 1990\n" "Library Version by Chris Young, incorporating ideas by Phillip Lake\n" "© 1997/8 Unsatisfactory Software\n") (transcript "als.library\n" "********************************\n" "* ADVANCED LAWNMOWER SIMULATOR *\n" "********************************\n\n" "Original by Duncan MacDonald 1990\n" "This version by Chris Young 1997/8\n" "© 1996-8 Unsatisfactory Software\n\n") (set @default-dest "libs:") (copylib (prompt "Check you do not have a newer version of als.library already installed") (help "Newer libraries have new and improved features - NEVER replace old libraries unless the new one is proven to have a serious bug\n\n" @copylib-help) (source "libs/als.library") (dest "libs:") (confirm 2) ) (copylib (prompt "Check you do not have a newer version of alsscrolly.library already installed") (help "Newer libraries have new and improved features - NEVER replace old libraries unless the new one is proven to have a serious bug\n\n" @copylib-help) (source "libs/alsscrolly.library") (dest "libs:") (confirm 2) ) (set sfver (exists ("FONTS:Spectrum/SpeccyFontVersion"))) (if sfver ( (copyfiles (prompt "No Prompt") (help "No Help") (source "FONTS:Spectrum/SpeccyFontVersion") (dest "ENV:") (nogauge) (safe) ) (set sfontver (getenv "SpeccyFontVersion") ) ) ) (set sfver (exists ("FONTS/Spectrum/SpeccyFontVersion"))) (if sfver ( (copyfiles (prompt "No Prompt") (help "No Help") (source "FONTS/Spectrum/SpeccyFontVersion") (dest "ENV:") (newname "SFNewVer") (nogauge) (safe) ) (set sfontvernew (getenv "SFNewVer") ) ) ) (copyfiles (prompt "als.library requires the Spectrum font\n" "Version currently installed: " sfontver "\n" "Version to install: " sfontvernew "\nDo NOT install this font if you already have a newer version " "installed") (help "You must have UNSATISFACTORY SOFTWARE'S Spectrum font, as it incorporates the old ALS.font" " Other Spectrum fonts (such as ZX8) do not contain the required data\n\nThis is an extended " "character set, which contains some accented characters as well as game UDGs - You should " "not lose any Speccy characters if you replace an existing Spectrum.font\nTo my knowledge," " there isn't another font with this name anyway.\n\n" @copyfiles-help) (source "fonts") (dest "fonts:") (all) (confirm 2) ) ; Classes stuff not used at present... ; ; (set #wbver (getenv "ENV:Workbench")) ; (if (< #wbver 39) ; ( ; (set #classdest "libs:") ; ) ; ( ; (set #classdest "SYS:Classes") ; ) ; ) ; ; ; (copyfiles ; (prompt "The classes for als.library need to be installed!\n\n" ; "They should be in your libs: " ; "path. The recommended place for WB3 users is sys:classes, and " ; "for other users is sys:libs") ; (help @copyfiles-help) ; (source "libs/als") ; (dest #classdest) ; (all) ; (optional "nofail" "force") ; (confirm) ; ) (set #classes (exists "libs:als")) (if #classes (run "delete >nil: libs:als all force") ) (set #alsprefdir "Work:ALS") (set ch (askchoice (prompt "ALSPrefs allows you to configure als.library\n" "It is recommended to install it - but where?") (help "ALSPrefs allows you to change mower names etc. for " "als.library's Als() function\n\n" @askchoice-help) (choices "SYS:Prefs" "Other Location") (default 0) ) ) (if (= ch 0) ( (copyfiles (prompt "Copy ALSPrefs") (help @copyfiles-help) (source "ALSPrefs") (dest "SYS:Prefs") (infos) ) )) (if (= ch 1) ( (set #alsprefdir (askdir (prompt "Select where you want ALSPrefs to reside") (help @askdir-help) (default #alsprefdir) ) ) (copyfiles (prompt "Copy ALSPrefs?") (help @copyfiles-help) (source "ALSPrefs") (dest #alsprefdir) (infos) ) ) ) (copyfiles (prompt "Do you want to install LibraryALS?\n" "You will probably want to change the destination") (help "LibraryALS is useful for checking you have correctly " "installed als.library, and for testing new versions/prefs. " "It simply calls the Als() function in the library (actually it " "also has some other features as well)\n\n" @copyfiles-help) (source "LibraryALS") (dest #alsprefdir) (confirm 0) (infos) ) (set #alreadyset (exists "ENVARC:ALS/libextra.prefs")) (if (= #alreadyset 0) ; ( ;reserved ; ) ( (set NewOwner (askstring (prompt "Please enter your name. This will used for the 'licenced to' feature of als.library\n\nLicenced To:") (help @askstring-help) (default "Somebody too lazy to enter their name") ) ) (set #green 0) (set #gfxvernum (getversion "graphics.library" (resident))) (set #gfxver (/ #gfxvernum 65536)) (if (< #gfxver 39) ( ;We do NOT have OS3.0 [graphics.library, anyway] (set #Green (rexx "ColPal" (prompt "I'm going to run an ARexx script to bring up a colour requester. Select the colour closest to green in your current palette.\n\n" "THIS REQUIRES AREXX!\n\nMake sure RexxMast is running, and skip this part if you do not own ARexx.") (help "Reqtools Colour Palette Requester - Select colour, then OK. Do not alter any colours!\n\n" "Requires ARexx, rexxreqtools.library and reqtools.library\n\n" @rexx-help) (confirm) (safe) ) ) )) (textfile (prompt "Creating libextra.prefs:\n\n" NewOwner "\n" #Green "\n") (help @textfile-help) (dest "ENVARC:ALS/libextra.prefs") (confirm) (append NewOwner "\n" #Green "\n") ) )) (message "als.library developer stuff\n\n" "This is no longer installed by this script: You can find all the " "files (hopefully all of them this time!) in the ALS-Dev drawer " "in this archive\n\nContains: FD, BMAP, C, E and possibly Assembler " "includes and modules") ;)) (copyfiles (prompt "The documentation should also be installed:\n" "This archive contains only the als.library (user & developer) " "information") (help "The destination defaults to HELP:English, " "which is the WB2.1 and up place" " to store English documentation. Users of WB2.05 and below should" " select a different destination\n\n" @copyfiles-help) (source "ALS_lib.guide") (dest "HELP:English") (infos) (confirm) ) (exit "Finished!\n\n" "I recommend you get hold of the mowersim.lha package if you don't already " "have it: It contains the standard/enhanced Amiga conversion, Casio and " "several emulator versions of ALS.\n\n" "Download it now from Aminet game/misc")